inherited FPesquisaCopiaCheque: TFPesquisaCopiaCheque
  Left = 434
  Top = 242
  Caption = 'C'#243'pia de Cheque'
  ClientHeight = 308
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Enabled = False
    end
  end
  inherited Panel1: TPanel
    Height = 267
    object Label2: TLabel [0]
      Left = 6
      Top = 1
      Width = 28
      Height = 13
      Caption = 'Conta'
    end
    object Label1: TLabel [1]
      Left = 6
      Top = 36
      Width = 77
      Height = 13
      Caption = 'N'#250'mero Cheque'
    end
    object Label3: TLabel [2]
      Left = 72
      Top = 53
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label9: TLabel [3]
      Left = 153
      Top = 36
      Width = 63
      Height = 13
      Caption = 'Data Cheque'
    end
    object Label6: TLabel [4]
      Left = 244
      Top = 53
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label10: TLabel [5]
      Left = 6
      Top = 90
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    inherited DBGrid1: TDBGrid
      Top = 143
      Height = 103
      TabOrder = 5
      Columns = <
        item
          Expanded = False
          FieldName = 'LANCAMENTO'
          Title.Caption = 'Lan'#231'amento'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONTA'
          Title.Caption = 'Conta'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NATUREZA'
          Title.Caption = 'Natureza'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DOCUMENTO'
          Title.Caption = 'Documento'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQUE'
          Title.Caption = 'Cheque'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATACHEQUE'
          Title.Caption = 'Data Cheque'
          Width = 73
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALOR'
          Title.Caption = 'Valor'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JUROSMULTA'
          Title.Caption = 'Juros e Multa'
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOMINAL'
          Title.Caption = 'Nominal'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HISTORICO'
          Title.Caption = 'Hist'#243'rico'
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 246
      TabOrder = 8
    end
    object DBLCBConta: TDBLookupComboBox
      Left = 6
      Top = 14
      Width = 390
      Height = 21
      KeyField = 'CONT_CORR_CODIGO'
      ListField = 'CONT_CORR_DESCRICAO'
      ListSource = DSConta
      TabOrder = 0
      OnKeyDown = DBLCBContaKeyDown
    end
    object EChIni: TEdit
      Left = 6
      Top = 49
      Width = 57
      Height = 21
      MaxLength = 6
      TabOrder = 1
      OnKeyPress = EChIniKeyPress
    end
    object EChFim: TEdit
      Left = 89
      Top = 49
      Width = 57
      Height = 21
      MaxLength = 6
      TabOrder = 2
      OnKeyPress = EChIniKeyPress
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 6
      Top = 72
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 6
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 103
      Width = 409
      Height = 40
      Align = alBottom
      Columns = 1
      ItemHeight = 13
      TabOrder = 7
    end
    object DEDataIni: TDateEdit
      Left = 153
      Top = 49
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 3
    end
    object DEDataFim: TDateEdit
      Left = 252
      Top = 49
      Width = 90
      Height = 21
      NumGlyphs = 2
      TabOrder = 4
    end
    object rbA4: TRadioButton
      Left = 160
      Top = 80
      Width = 49
      Height = 17
      Caption = 'A4'
      TabOrder = 9
    end
    object rbCarta: TRadioButton
      Left = 216
      Top = 80
      Width = 49
      Height = 17
      Caption = 'Carta'
      Checked = True
      TabOrder = 10
      TabStop = True
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'select Cont_Corr_Descricao as Conta, Lanc_Conta as CodConta,Lanc' +
        '_Codigo as Lancamento,Lanc_Documento as Documento,'
      
        'Lanc_Cheque as Cheque,Lanc_Historico1 as Historico1,Lanc_Histori' +
        'co2 as Historico2,Lanc_Valor as Valor,lanc_JurosMulta as JurosMu' +
        'lta,Lanc_Nominal as Nominal,Lanc_DataCheque as DataCheque,'
      'PlanoContas.Natureza as Natureza'
      
        'from Contacorrente inner join (Lancamento left join PlanoContas ' +
        'on PlanoContas.Codigo = Lanc_Plano ) on Cont_Corr_Codigo = Lanc_' +
        'Conta'
      'Order By Lanc_Conta,Lanc_Cheque,Lanc_Codigo,Lanc_Documento '
      '')
    Left = 152
    Top = 217
  end
  inherited DSPesquisa: TDataSource
    Left = 192
    Top = 217
  end
  object DSConta: TDataSource
    DataSet = DMFinanceiro.QConta
    Left = 224
    Top = 40
  end
  object QConfiguracaoCheque: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'select Cont_Corr_Descricao as Conta, Lanc_Conta as CodConta,Lanc' +
        '_Codigo as Lancamento,Lanc_Documento as Documento,'
      
        'Lanc_Cheque as Cheque,Lanc_Historico1 as Historico1,Lanc_Histori' +
        'co2 as Historico2,Lanc_Valor as Valor,lanc_JurosMulta as JurosMu' +
        'lta,Lanc_Nominal as Nominal,Lanc_DataCheque as DataCheque,'
      'PlanoContas.Natureza as Natureza'
      
        'from Contacorrente inner join (Lancamento left join PlanoContas ' +
        'on PlanoContas.Codigo = Lanc_Plano ) on Cont_Corr_Codigo = Lanc_' +
        'Conta'
      'Order By Lanc_Conta,Lanc_Cheque,Lanc_Codigo,Lanc_Documento '
      '')
    Left = 248
    Top = 201
  end
end
